Top 10k strings from Study Maths 2 - 9-13 years - Towers of Hanoi (1983)(Scisoft).tap
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
4 computergo 3 z$="Towers of Hanoi": 3 hanoi 2 z$="Instructions": 2 noofdiscs: 2 change23=1 2 ;"From tower "; 1 yourmove=2000 1 yesno=9200 1 tsize=c(to,n): 1 tsize<fsize 1 title=9000 1 setup=8000 1 setscreen=8100 1 set screen 1 omputermov 1 noofdiscs= 1 noofdiscs/2 1 move=move+1 1 invalid=9300 1 intro=7000 1 i$="Y")+(" 1 i$;" to tower "; 1 getnoofdiscs=6000 1 getnoofdiscs 1 get no of discs 1 fsize=c(from,n): 1 finished=1 1 finished=0 1 etnoofdisc 1 enter=9100 1 domove=4000 1 do the move 1 computers move 1 computermove=3000 1 computermove 1 computergo=1 1 computergo=0 1 computergo);"try"'"(press 1 comment=5000 1 check=2100 1 check its valid 1 change23=0 1 change12=1 1 change12=0 1 c(to,tpos)=fsize: 1 c(m,n);" ";: 1 c(from,n)=8 1 c(from,fpos)=8 1 Z$="Towers of Hanoi": 1 Towers of Hanoiv 1 By P.W.Cooke 1 ;noofdiscs;" Discs": 1 ;c$(fsize) 1 ;"move ";move: 1 ;"You are not allowed to move a"'"larger disc on top of a smaller one and the computer will not"'"let you do this." 1 ;"Would you like to see the"'"computer try the puzzle ?"'"(press 1 ;"Would you like to play"'"Towers of Hanoi again ?"'"(Press 1 ;"Well done. You have managed"''noofdiscs;" discs in ";move;" moves !!!!" 1 ;"Type in your move:- 1 ;"The towers are labelled tower A tower B and tower C."'"To make a move just type in"'"which tower you want to move a disc from and which tower you"'"want to move it to." 1 ;"STILL LOADING"; 1 ;"Not bad eh !!!!": 1 ;"LEAVE TAPE RUNNING": 1 ;"In this ancient Chinese puzzle you start with a given number ofdiscs (between 2 and 7) on the left of three towers."''"The object of the game is to move all of the discs onto the right hand tower with the"'"largest at the bottom and the smallest at the top." 1 ;"How many discs would you like"'"to ";("see the computer " 1 ;"Do you want instructions ?"'"(Press 1 ;" "; 1 ;" "; 1 ;" ": 1 ;" ";: 1 (noofdiscs/2 1 ''"O.k. then"''"Byee...": 1 "You gave up after ";move;" move";("s" 1 " to tower "; 1 towers of hanoi 1 to give up" 1 to continue";: 1 Scisoft 1983": 1 INVALID MOVE PLEASE TRY AGAIN 1 now the gosubs 1 main program